home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / treebas / treebas3.txt < prev    next >
Text File  |  1993-06-12  |  2KB  |  43 lines
  1. Scanning RayTrace (6) Conference Date: 06-07-93 (02:47)              Number: 2546 of 2601 (Refer# 2538)
  2.   To: TONY AUDAS
  3. From: ED SMITH
  4. Subj: L-SYSTEMS                
  5. Read: 06-12-93 (11:30)              Status: PUBLIC MESSAGE (Echo)
  6. Conf: RayTrace (6)               Read Type: GENERAL
  7.  
  8. -> ed, i tried treebas.zip, it seems to be missing the file named 'test'
  9. -> that contains the Axioms for the Lsystem.  it would be great if you
  10. -> could mail to me at taudas@ais.org ( i read every day) or i will be
  11.     The file 'test' is a text file, all you need to do is create it with
  12. the text editor of your choice.  The only thing you need to generate
  13. several trees is the statement A(1,4) on the first line and it should
  14. -> the internet pov site (ftp.informatik.uni-oldenberg.de) and to
  15. -> the pov mailing list.  3d lsystems are great! keep up the good work!
  16.  
  17.     I am currently working on a new version that will be much more
  18. flexible and alot faster, since I switched to Turbo Pascal.  I would
  19. like it to be able to read in user created text files that would
  20. contain the axiom and production rules that the user wants generated.
  21. If you or someone you know can direct me to some source code for
  22. something along those lines or even just some ideas on how to implement
  23. something like that please let me know.
  24.     btw:  I dont know if I included this in the treebas.zip file or not
  25. but the production rules for the program in treebas.zip are the
  26. following:
  27.  
  28. r1 = 0.9
  29. r2 = 0.6
  30. a0 = 45
  31. a2 = 45
  32. d = 137.5
  33. wr = .707
  34.  
  35. Axiom : A(1,4)
  36. p1:     A(l,w) : * ---> !(w)F(l)[&(a0)B(l*r2,w*wr)]/(d)A(l*r1,w*wr)
  37. p2:     B(l,w) : * ---> !(w)F(l)[+(-a2)$C(l*r2,w*wr)]C(l*r1,w*wr)
  38. p3:     C(l,w) : * ---> !(w)F(l)[+(a2)$B(l*r2,w*wr)]B(l*r1,w*wr)
  39. Just in case you were interested.  Thanks for the note,  I didn't think
  40. anyone was actually interested in the program after seeing it.
  41.  
  42. Ed
  43.